CLS
s = 1
fack = 1
FOR i = 1 TO 10
s = s + (0.3 * (LOG(EXP(5)))) ^ i / fack
NEXT i
PRINT s
f = s / .01
l = INT(f)
x = l * .01
PRINT x
lp=log(exp((1+0.5)/(1-0.5)))
if lp>x then ? "y>s" else if lp=x then ? "y=s" else ? "y<x"
Тестирование выполнено в программе QB64 ( Скачать )